This sample code shows the use of the Preview Method (Report Object) Modify the following sample code to fit your needs.
Dim crystalreport As CRPEAuto.Report
Dim repView As CRPEAuto.View
Dim crwApplication As CRPEAuto.Application
Private Sub Command1_Click()
'report object that view belongs to
Set crwApplication = CreateObject("Crystal.CRPE.Application")
Set crystalreport = crwApplication.OpenReport _
("c:\crw\reports\xtreme\wwsales.rpt")
Set repView = crystalreport.Preview
'call procedure to check repView.Report
Call RepCheck(crystalreport, repView.Report)
repView.Close
End Sub
Seagate Software IMG Holdings, Inc. http://www.seagatesoftware.com Support services: http://support.seagatesoftware.com |